home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-Anim5 / background_2672.txt < prev    next >
Text File  |  1990-04-06  |  1KB  |  63 lines
  1. -- background: 2672 from stack: in.0-Anim5
  2. -- bmap block id: 3086
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Stacks
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11. -- part 4 (button)
  12. -- low flags: 00
  13. -- high flags: 0000
  14. -- rect: left=47 top=77 right=305 bottom=425
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 0 / 0
  17. -- text alignment: 1
  18. -- font id: 0
  19. -- text size: 12
  20. -- style flags: 0
  21. -- line height: 16
  22. -- part name: wind
  23.  
  24.  
  25. -- part 3 (button)
  26. -- low flags: 00
  27. -- high flags: 0000
  28. -- rect: left=54 top=61 right=76 bottom=74
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: closebox
  37. ----- HyperTalk script -----
  38. -- This handler sets the cursor to simulate a real closeBox.
  39. on mouseEnter
  40.   set the cursor to "arrow"
  41. end mouseEnter
  42.  
  43. -- This handler sets the cursor to simulate a real closeBox.
  44. on mouseWithIn
  45.   repeat until the mouseloc is not within the rect of me or the mouse is down
  46.     set the cursor to "arrow"
  47.   end repeat
  48.   if the mouse is down then
  49.     send mouseUp to me
  50.   end if
  51. end mouseWithIn
  52.  
  53. -- This handler simulates clicking in a closeBox.
  54. on mouseUp
  55.   set the icon of me to 7937
  56.   wait 15
  57.   set the icon of me to 0
  58.   lock screen
  59.   goBack
  60.   unlock screen
  61. end mouseUp
  62.  
  63.